#!./perl

@tmp = split(/_/,$ENV{SERVER_NAME});
@tmp[0] =~ s/-/ /g;
$disc_name = @tmp[0]; 
@tmp[1] =~ s/-/ /g;
$disc_rest = @tmp[1];
